

use "$data/clean/clean_main_complete.dta" , replace


labe var pre_days_doortodoor "Experience: # days door canvassing"
label var z_votes_own "Expected vote share own party"
label var z_votes_other_1 "Expected vote share competitor party 1"
label var z_votes_other_2 "Expected vote share competitor party 2"


foreach x in $control {
ereplace `x' =std(`x')	
	
}

		   

 xi: reg z_voice_prior   $control  , vce(r)
est store corrs


 xi: reg z_score_fs  $control if control == 1, vce(r)
est store corrs_z_score_fs



coefplot corrs corrs_z_score_fs , xline(0) drop(_cons)  xtitle("Standard deviations") grid(none) /// title("Correlations with perceived voice")
legend(pos(6) order(2 "Prior voice (z)" 4 "Voice index") row(1))
 
 
graph export "$output/voice_corr_coefplot.pdf" , replace
